home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / mandrake_MDKSA-2004-123.nasl < prev    next >
Encoding:
Text File  |  2005-01-14  |  3.3 KB  |  132 lines
  1. #
  2. # (C) Tenable Network Security
  3. #
  4. # This plugin text was extracted from Mandrake Linux Security Advisory MDKSA-2004:123
  5. #
  6.  
  7.  
  8. if ( ! defined_func("bn_random") ) exit(0);
  9. if(description)
  10. {
  11.  script_id(15603);
  12.  script_version ("$Revision: 1.1 $");
  13.  
  14.  name["english"] = "MDKSA-2004:123: perl-MIME-tools";
  15.  
  16.  script_name(english:name["english"]);
  17.  
  18.  desc["english"] = "
  19. The remote host is missing the patch for the advisory MDKSA-2004:123 (perl-MIME-tools).
  20.  
  21.  
  22.  
  23. There's a bug in MIME-tools, where it mis-parses things like boundary=''. Some
  24. viruses use an empty boundary, which may allow unapproved parts through
  25. MIMEDefang.
  26.  
  27. The updated packages are patched to fix this problem.
  28.  
  29. As well, the Updated perl-MIME-tools requires MIME::Base64 version 3.03. Since
  30. MIME::Base64 is integrated in the perl package on Mandakelinux, these updates
  31. now provide the newer version.
  32.  
  33.  
  34.  
  35. Solution : http://www.mandrakesoft.com/security/advisories?name=MDKSA-2004:123
  36. Risk factor : High";
  37.  
  38.  
  39.  
  40.  script_description(english:desc["english"]);
  41.  
  42.  summary["english"] = "Check for the version of the perl-MIME-tools package";
  43.  script_summary(english:summary["english"]);
  44.  
  45.  script_category(ACT_GATHER_INFO);
  46.  
  47.  script_copyright(english:"This script is Copyright (C) 2004 Tenable Network Security");
  48.  family["english"] = "Mandrake Local Security Checks";
  49.  script_family(english:family["english"]);
  50.  
  51.  script_dependencies("ssh_get_info.nasl");
  52.  script_require_keys("Host/Mandrake/rpm-list");
  53.  exit(0);
  54. }
  55.  
  56. include("rpm.inc");
  57. if ( rpm_check( reference:"perl-5.8.3-5.1.100mdk", release:"MDK10.0", yank:"mdk") )
  58. {
  59.  security_hole(0);
  60.  exit(0);
  61. }
  62. if ( rpm_check( reference:"perl-base-5.8.3-5.1.100mdk", release:"MDK10.0", yank:"mdk") )
  63. {
  64.  security_hole(0);
  65.  exit(0);
  66. }
  67. if ( rpm_check( reference:"perl-devel-5.8.3-5.1.100mdk", release:"MDK10.0", yank:"mdk") )
  68. {
  69.  security_hole(0);
  70.  exit(0);
  71. }
  72. if ( rpm_check( reference:"perl-doc-5.8.3-5.1.100mdk", release:"MDK10.0", yank:"mdk") )
  73. {
  74.  security_hole(0);
  75.  exit(0);
  76. }
  77. if ( rpm_check( reference:"perl-MIME-tools-5.415-1.0.100mdk", release:"MDK10.0", yank:"mdk") )
  78. {
  79.  security_hole(0);
  80.  exit(0);
  81. }
  82. if ( rpm_check( reference:"perl-5.8.5-3.1.101mdk", release:"MDK10.1", yank:"mdk") )
  83. {
  84.  security_hole(0);
  85.  exit(0);
  86. }
  87. if ( rpm_check( reference:"perl-base-5.8.5-3.1.101mdk", release:"MDK10.1", yank:"mdk") )
  88. {
  89.  security_hole(0);
  90.  exit(0);
  91. }
  92. if ( rpm_check( reference:"perl-devel-5.8.5-3.1.101mdk", release:"MDK10.1", yank:"mdk") )
  93. {
  94.  security_hole(0);
  95.  exit(0);
  96. }
  97. if ( rpm_check( reference:"perl-doc-5.8.5-3.1.101mdk", release:"MDK10.1", yank:"mdk") )
  98. {
  99.  security_hole(0);
  100.  exit(0);
  101. }
  102. if ( rpm_check( reference:"perl-MIME-tools-5.415-1.0.101mdk", release:"MDK10.1", yank:"mdk") )
  103. {
  104.  security_hole(0);
  105.  exit(0);
  106. }
  107. if ( rpm_check( reference:"perl-5.8.1-0.RC4.3.1.92mdk", release:"MDK9.2", yank:"mdk") )
  108. {
  109.  security_hole(0);
  110.  exit(0);
  111. }
  112. if ( rpm_check( reference:"perl-base-5.8.1-0.RC4.3.1.92mdk", release:"MDK9.2", yank:"mdk") )
  113. {
  114.  security_hole(0);
  115.  exit(0);
  116. }
  117. if ( rpm_check( reference:"perl-devel-5.8.1-0.RC4.3.1.92mdk", release:"MDK9.2", yank:"mdk") )
  118. {
  119.  security_hole(0);
  120.  exit(0);
  121. }
  122. if ( rpm_check( reference:"perl-doc-5.8.1-0.RC4.3.1.92mdk", release:"MDK9.2", yank:"mdk") )
  123. {
  124.  security_hole(0);
  125.  exit(0);
  126. }
  127. if ( rpm_check( reference:"perl-MIME-tools-5.415-1.0.92mdk", release:"MDK9.2", yank:"mdk") )
  128. {
  129.  security_hole(0);
  130.  exit(0);
  131. }
  132.